8bitfiles.net/archives/archives.tar/archives/compuserve-file-archive/12 C64 Telecom/SXP683.ARC/EDIT940429

Commodore BASIC | 2019-04-13 | 24.6 KB | 725 lines

0 POKE53280,.:POKE53281,.:PRINT"[147][151]    ";:SYS49230:GOTO100
1 GOSUB2:GOTO4
2 GOTO1610
3 GOTO1000
4 GOTO1740
5 GOSUB2:GOTO3
6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
7 A$=A$+" > ":GOTO1
8 A$="":GOTO2
9 A$=R$+A$:GOTO2
10 GOTO420
11 GOTO10080
12 POKEP,.:POKES,224:POKE686,.:POKE693,.:POKE685,.:RETURN
13 CLOSE4:CLOSE3:CLOSE2:CLOSE1:RETURN
14 SYS49179,A$:RETURN
15 GOTO1650
16 I=54272:POKEI+4,64:POKEI+3,9:POKEI+1,8:POKEI+5,12:POKEI+6,15:POKEI+4,65:RETURN
17 A$=V$:GOTO2
19 CLOSE2:OPEN2,8,2,"0:USER LOG,S,A":RETURN
20 A$=X$+""
21 IFY<LTHENSYS49197:SYS49200,A$:IFPEEK(693)>.THENY=-1:RETURN
22 IFY<LTHENY=Y+1:GOTO21
23 SYS49197:GOSUB35:IFPEEK(693)>.ANDY<LTHENY=-1
24 RETURN
25 GOSUB40:I$="Y":POKE703,.:SYS49221,I$:IFPEEK(703)>.THENI$="":Z=1:D=-1:RETURN
26 GOSUB6
27 IFI$=R$ORI$="[217]"THENA$="[217]ES":D=1:GOTO2
28 IFI$="[206]"THENA$="[206]O":D=.:GOTO2
29 GOTO25
30 A$="":SYS49194:Q=ST:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
31 SYS49239:RETURN
32 A$=V$:GOTO5
33 A$="":GOSUB37:A$=X$+"":SYS49227,A$:GOSUB37:A$=LEFT$(A$,PEEK(2025)-1):RETURN
34 A$="[211]TAND BY":GOTO9
35 IFPEEK(685)THENA$=LEFT$(X$,PEEK(685))+"":SYS49200,A$
36 RETURN
37 PRINT#1,M$CHR$(G)CHR$(H)Y$:INPUT#1,M1,M1$,M1,M1:RETURN
38 A$=V$:GOSUB2:GOTO11
39 GOSUB9:GOTO3
40 T2=TI+WT:IFT2>T-1THENT2=T2-T
41 T2=T2-INT(T2/60^3)*60^3:M5=INT(T2/60^2):M5$=MID$(STR$(M5),2)
42 M5=.:IFLEN(M5$)>1THENM5=16*VAL(LEFT$(M5$,1))
43 MM=VAL(RIGHT$(M5$,1)):M5=M5+MM:POKE702,M5:RETURN
78 A$=MID$(STR$(A),2):IFLEN(A$)=1THENA$="0"+A$
79 RETURN
80 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230:RETURN
100 IFPEEK(1064)=32THEN100
101 OPEN5,2,.,CHR$(6):C=256:MP=PEEK(742)+PEEK(743)*C:CP=PEEK(719):B=255:S=254
105 DIMDR$(4,19),MG$(3,7),TB$(31),U$(256),AU$(9),BU$(9),IT$(19),JT$(19),U(19)
106 DIMP1$(15),B(19):I$="":FORX=1070TO1073:A$=CHR$(PEEK(X)):I$=I$+A$:NEXT
107 IFLEFT$(I$,1)=" "THENI$=MID$(I$,2)
108 GOSUB5900:P=253
120 R$=CHR$(13):J$="[211][217][211][207][208]":V$="[201]NVALID ":W$="[193]BORTED":C$=CHR$(160):POKE1023,B
121 AB=780:XB=781:IB=65508:OU=65490:CI=65478:CC=65484
160 Y$=CHR$(.):M$="P"+CHR$(99):WT=10800:FR$="0:[211]YSTEM [213]SERS":Q$=CHR$(34)
165 G$="[207]KAY":GOSUB170:GOTO265
170 CLOSE9:OPEN9,8,2,"0:CUSTOM":INPUT#9,PS$:INPUT#9,A$
180 LF=VAL(A$):INPUT#9,DR$:DR=VAL(DR$):IFDR=-1THEN197
190 FORX=.TODR:FORY=1TO3:INPUT#9,DR$(Y,X):NEXTY,X
197 INPUT#9,MG$:MG=VAL(MG$):FORX=.TOMG:FORY=.TO3:INPUT#9,MG$(Y,X):NEXTY,X
198 FORX=.TOMG:MG(X)=.:IFLEFT$(MG$(.,X),1)="-"THENMG(X)=1:MG$(.,X)=MID$(MG$(.,X),2)
199 IFLEFT$(MG$(.,X),1)="+"THENMG(X)=2:MG$(.,X)=MID$(MG$(.,X),2)
200 NEXT:INPUT#9,NC$:NC=VAL(NC$):FORX=.TONC:INPUT#9,C$(X):NEXT
205 INPUT#9,A$:BD=VAL(A$):INPUT#9,BD$,UM$,PG$,A$,LD$,SU$,NB$
207 UM=VAL(UM$):LD=VAL(A$):PG=VAL(PG$):INPUT#9,A$,CG$:EZ=VAL(A$)
208 INPUT#9,A$,P1$,P2$:PD=VAL(A$):X=.:P1=VAL(P1$):P1$=""
209 INPUT#9,P1$(X):X=X+1:ON-(X<P1+1)GOTO209:X=8
210 INPUT#9,TB$(X):NB=X-7:X=X+1:IFST=.THEN210
220 CLOSE9:OPEN9,8,9,"0:STATS":FORX=.TOMG:INPUT#9,SY$(X),R4$(X),AL$(X),RF$(X):NEXT
240 INPUT#9,US$,OL$,YV$,FB$,BF$:YV=VAL(YV$):IFDR=-1THEN260
250 FORX=.TODR:INPUT#9,DR$(4,X):NEXT
260 CLOSE9:U=8:US=VAL(US$):CJ$=CHR$(PEEK(744)):RETURN
265 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)OR16:CLOSE1:OPEN1,LD,15,"UI+":CLOSE1
266 GOSUB8:A$="[197]DIT [204]INK 940429":GOSUB2
280 POKE650,128:T=5184E3:A$="                                        "
290 FORX=1TO6:X$=X$+A$:NEXT:X$=X$+"               ":FORX=1TO16:SS$=SS$+C$:NEXT
320 E$="":FORX=.TO1:A=(PEEK(710+X)):GOSUB78:E$=E$+A$:NEXT:WD=PEEK(687)
350 DY$=MID$(STR$(PEEK(999)),2):IFLEN(DY$)=1THENDY$="0"+DY$
360 Z$=MID$(STR$(PEEK(1000)),2):IFLEN(Z$)=1THENZ$="0"+Z$
370 Y2=PEEK(1001):Y3=PEEK(1002):YR=Y3*C+Y2:YR$=MID$(STR$(YR),2)
380 D$=DY$+Z$+RIGHT$(YR$,2)
390 F1=1:GOSUB2160:F1=.:GOSUB80:E=VAL(LEFT$(B$,2))*60^3+VAL(MID$(B$,4,2))*60^2
400 E=E+(VAL(RIGHT$(B$,2))+1)*60:E=TI-E
405 N$="":FORX=971TO995:A$=CHR$(PEEK(X)):IFA$=CHR$(.)THEN407
406 N$=N$+A$:NEXTX
407 FORX=1TO25:IFRIGHT$(N$,X)=RIGHT$(X$,X)THENNEXT
408 N$=LEFT$(N$,26-X)
409 GOTO1000
420 K9$=MID$("[202]AN[198]EB[205]AR[193]PR[205]AY[202]UN[202]UL[193]UG[211]EP[207]CT[206]OV[196]EC",(VAL(MID$(K$,3,2))-1)*3+1,3)
430 K$=LEFT$(K$,2)+"-"+K9$+"-"+RIGHT$(K$,2):RETURN
1000 POKE687,WD:J=.:A$=N$:GOSUB14:WT=10800:IFZTHEN2480
1010 EM=.:BF=.:POKE1023,1:GOSUB2160
1020 A$="[197]DIT > ":GOSUB9:GOSUB4:IFZORI$="[255]"THEN3
1050 IFJ9=1THEN1940
1060 GOSUB6:IFI$="[194][194][211]"THENSYS65484:POKE1023,B:GOTO3675
1065 IFI$="?"THENF$="HELPED":U=BD:DD$=BD$+":":GOSUB1660:GOTO3
1068 IFLEFT$(I$,2)="[197][196]"THENEM=1:GOTO10550
1069 IFLEFT$(I$,2)="[195][210]"THEN10550
1070 IFLEFT$(I$,2)="[214][201]"THEN12000
1073 IFI$="@"THEN9000
1080 IFLEFT$(I$,4)="[211][212][193][212]"THEN4000
1140 IFI$="[195]"THEN1880
1200 FORX=.TOP1:IFI$=P1$(X)THENX=P1:NEXT:GOTO7001
1201 NEXT
1330 IFI$<>"[199]"ANDI$<>"[209]"THENA$="
?
 FOR [200]ELP":GOTO39
1390 POKE1023,S:POKE54296,.:GOSUB80
1395 A$="[204]OGOFF AT "+LEFT$(TI$,2)+":"+MID$(TI$,4,2)+":"+RIGHT$(TI$,2):GOSUB9
1397 A$="[195]ONNECT [212]IME = "+B$+"[208]LEASE CALL AGAIN.":GOSUB2:GOTO3676
1560 POKE707,.
1570 A=ASC(A$)
1580 IFA=136THEN1910
1590 IFA=137ORPEEK(702)=BTHENRETURN
1592 IFA=135THENGOSUB6000:A$=Y$:IFDETHENZ=1:RETURN
1593 IFA=139THEN8100
1600 A$=AS$:GOTO1820
1610 GET#5,K9$:C9=.:H$="":IFA$=""THEN8
1615 SYS49203,A$:SYS49239
1620 IFRIGHT$(A$,1)<>""ANDSK=.THEN2840
1630 RETURN
1650 U=8:DD$="0:
1660 [141]13
1670 [159]1,U,15:[159]2,U,2,DD$[170]F$:FC[178].
1680 [151]685,.:[151]693,.:[132]1,A,A$,I,I:[139]A[167][142]
1690 [141]8
1700 [141]30:[141]2:[139]C9[176](Q[175]64)[178]64[167][160]2:[160]1:A[178].:Q[178].:[142]
1730 [137]1700
1740 [151]694,.:F1[178]1:[141]2160:F1[178].:[139]J9[178]1[175]J[179][177]1[167]I$[178]C$:A$[178]C$:[137]2
1800 [141]40:[139]PA[167][151]54296,15:[141]16
1810 [151]703,.:[139]O[178].[167]O[178]38
1820 A$[178][200](X$,O):[158]49215,A$:[139]J[178]1[175][194](707)[178]136[167][151]707,.:[137]1820
1830 [139][194](707)[177].[167]AS$[178]A$:A$[178][199]([194](707)):[137]1560
1840 [139][194](703)[177].[167]Z[178]1:I$[178]C$:[142]
1850 I$[178]A$:I$[178][200](I$,[194](694))
1860 [139][194](694)[178].[167]I$[178]C$
1870 O[178].:[142]
1880 [139][194](739)[167]A$[178]"(null)YSOP ISN'T AVAILABLE":[137]39
1883 PA[178]1[171]PA:A$[178][202]("(null)FF(null)N ",3[172]PA[170]1,3):A$[178]"(null)AGER "[170]A$
1885 [151]54296,15[172]PA:[139]PA[167][151]690,7:[137]39
1890 [151]690,[194](729):[137]5
1910 [139]J9[178]1[167]K[178]TI:J9[178].:[142]
1920 J9[178]1:I$[178]C$:A$[178]C$:[137]2
1930 K[178]TI:J9[178]2:[137]3
1940 [151]54296,.:PA[178].:A$[178]"LENHAT (null)ODE":[141]9:[151]690,[194](729):[137]2550
2160 TC[178]56328:X9[178][194](TC[170]3):A%[178](X9[175]16)[173]16[170]48:B%[178](X9[175]15)[170]48
2170 [139]X9[178][177]128[175][197]([199](A%)[170][199](B%))[179]12[167]A%[178]A%[170]1:B%[178]B%[170]2
2180 [139]B%[177]57[167]A%[178]A%[170]1:B%[178]B%[171]10
2190 [139]X9[179]128[175]A%[178]49[175]B%[178]50[167]A%[178]48:B%[178]48
2200 X9[178][194](TC[170]2):C%[178](X9[175]240)[173]16[170]48:D%[178](X9[175]15)[170]48
2210 X9[178][194](TC[170]1):E%[178](X9[175]240)[173]16[170]48:F%[178](X9[175]15)[170]48
2220 X9[178][194](TC):TI$[178][199](A%)[170][199](B%)[170][199](C%)[170][199](D%)[170][199](E%)[170][199](F%)
2230 [139]F1[178]1[167][142]
2240 [139]TI[179]E[167]E[178]E[171]T
2250 L2[178]TI[171]E
2252 [141]8010:[139]Z[167][142]
2253 L7[178][181](L2[173]60[174]3):L8[178][181]((L2[171]L7[172]60[174]3)[173]60[174]2):L9[178][181]((L2[171]L7[172]60[174]3[171]L8[172]60[174]2)[173]60)
2254 L4[178]L7[172]60[170]L8
2260 [139][197](TI$)[179]10000[175][194](1018)[179][177]1[167]2290
2270 [139]TI$[177]"010000"[167][151]1018,.
2280 [142]:[153]"(C)OPYRIGHT 1993 JASON MAC INNES
2290 POKE1018,1:IFDY$="28"ANDZ$="02"THEN2420
2300 IFDY$="29"ANDZ$="02"THENDY$="01":Z$="03":GOTO2440
2310 IFDY$="31"AND(Z$="01"ORZ$="10"ORZ$="03"ORZ$="05"ORZ$="07")THEN2360
2320 IFDY$="31"AND(Z$="08"ORZ$="12")THEN2360
2330 IFDY$="30"AND(Z$="09"ORZ$="11"ORZ$="04"ORZ$="06")THEN2360
2340 DY$=MID$(STR$(VAL(DY$)+1),2):IFLEN(DY$)=1THENDY$="0"+DY$
2350 GOTO2440
2360 TJ=VAL(Z$)+1:IFTJ<10THENLT=1:GOTO2380
2370 LT=2
2380 DY$="01":Z$=RIGHT$(STR$(TJ),LT)
2390 IFLT=1THENZ$="0"+Z$
2400 IFZ$="13"THENYR$=RIGHT$(STR$(VAL(YR$)+1),4):Z$="01
2410 [137]2440
2420 YR[178][197](YR$):Y2[178]YR[173]4:YR[178][181](YR[173]4):[139]YR[178]Y2[167]DY$[178]"29":[137]2440
2430 DY$[178]"01":Z$[178]"03
2440 POKE999,VAL(DY$):POKE1000,VAL(Z$):YR=VAL(YR$):Y3=INT(YR/C)
2450 Y2=YR-(Y3*C):POKE1001,Y2:POKE1002,Y3:D$=DY$+Z$+RIGHT$(YR$,2)
2460 K$=D$:GOSUB10:GOSUB19:A$=" "+R$+"[196]ATE: "+K$+R$+" ":PRINT#2,A$:CLOSE2:IFDR=-1THEN13
2470 OPEN2,8,2,"0:LU,S,A":PRINT#2,A$:CLOSE2:OPEN2,8,2,"0:LD,S,A":PRINT#2,A$:GOTO13
2480 J9=.:POKE1023,P:POKE54296,.:GOSUB2510:GOTO3675
2510 FORX=8TOVAL(NB$)+7:CLOSE1:OPEN1,X,15:CLOSE1
2520 IFSTTHEN2540
2530 OPEN1,X,15,"I0:":CLOSE1
2540 NEXT:RETURN
2550 POKE694,.:POKE702,B:SYS49215,X$
2560 IFPEEK(707)=.THEN2550
2570 A$=CHR$(PEEK(707)):GOSUB1560:IFJ9=.ORZTHENGOSUB8:GOTO1930
2580 GOTO2550
2750 IFTI<ETHENE=E-T
2760 L2=TI:TH=INT((L2-E)/60^3):L2=L2-60^3*TH:TM=INT((L2-E)/60^2):L2=L2-60^2*TM
2770 TS=INT((L2-E)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO2790
2780 TH$=RIGHT$(STR$(TH),2)
2790 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO2810
2800 TM$=RIGHT$(STR$(TM),2)
2810 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO2830
2820 TS$=RIGHT$(STR$(TS),2)
2830 T9$=TH$+":"+TM$+":"+TS$:RETURN
2840 SK=.:K=TI:IFK9$>""THENA$=K9$:GOTO2870
2850 GETA$:IFA$>""THEN2870
2860 GET#5,A$:IFA$>""THEN2870
2865 IF(PEEK(673)AND1)=.THENRETURN
2867 GOTO2850
2870 K=TI:Z=.:A=ASC(A$):IFA>127THENA$=CHR$(A-128)
2880 IFA$="
"ORA$=""ORA$=""THENH$=A$:C9=1:RETURN
2890 IFA$=CHR$(83)ORA$=CHR$(115)ORA$=""THENA$="<[195]>":SK=1:GOSUB2:GOTO2960
2900 GOTO2850
2960 GETA$:IFA$>""THEN2990
2970 IFTI-K>WTTHENA$=CHR$(65):Z=1:GOTO2990
2980 GET#5,A$:IFA$=""THEN2960
2990 A=ASC(A$):IFA>127THENA$=CHR$(A-128)
3000 IFA$=CHR$(65)ORA$=CHR$(97)ORA$=""ORA$=""THENGOSUB3055:C9=1:RETURN
3010 IFA$=CHR$(67)ORA$=CHR$(99)ORA$=""THEN3055
3020 GOTO2960
3055 A$=CHR$(20):A$=A$+A$+A$+"":GOSUB2:SK=.:RETURN
3500 A$="[211]AVING...":GOSUB9:CLOSE9:CLOSE1:OPEN1,8,15,"S0:CUSTOM":OPEN9,8,2,"0:CUSTOM,S,W
3501 [152]9,PS$;R$;[202]([196](LF),2);R$;[196](DR):[139]DR[178][171]1[167]3503
3502 [129]X[178].[164]DR:[129]Y[178]1[164]3:[152]9,DR$(Y,X):[130]Y,X
3503 [152]9,[202]([196](MG),2):[129]X[178].[164]MG:[129]Y[178].[164]3:[139]Y[178].[175]MG(X)[177].[167][152]9,[202]("-+",MG(X),1);
3504 [152]9,MG$(Y,X):[130]Y,X:[152]9,[202]([196](NC),2):[129]X[178].[164]NC:[152]9,C$(X):[130]
3505 [152]9,[202]([196](BD),2);R$;BD$;R$;[202]([196](UM),2);R$;[202]([196](PG),2)
3506 [152]9,[202]([196](LD),2);R$;LD$;R$;SU$;R$;[202]([196](NB),2)
3507 [152]9,[202]([196](EZ),2);R$;CG$;R$;[202]([196](PD),2)
3508 [152]9,[202]([196](P1),2);R$;P2$
3509 [129]X[178].[164]P1:[152]9,P1$(X):[130]
3510 [129]X[178]8[164]NB[170]7:[152]9,TB$(X):[130]:[160]9
3640 [160]14:[160]1:[159]1,8,15,"S0:STATS":[152]1,"I0:
3645 OPEN14,8,14,"0:STATS,S,W
3650 [129]X[178].[164]MG:[152]14,SY$(X);R$;R4$(X);R$;AL$(X);R$;RF$(X):[130]
3660 [152]14,[196](US);R$;Q$[170]OL$;R$;[196](YV);R$;FB$;R$;BF$:[139]DR[178][171]1[167]3671
3670 [129]X[178].[164]DR:[152]14,DR$(4,X):[130]
3671 [160]14:[160]1:[142]
3675 A$[178]"(null)NE MOMENT...":[141]9
3676 LP$[178]":":F$[178]"BBS6*
3677 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)AND239:CLOSE1:OPEN1,LD,15,"UI-":CLOSE1
3680 PRINT"[147]NEW"R$"LOAD"Q$;LD$;LP$;F$;Q$;",";LD;":"R$"RUN":POKE198,3
3690 POKE631,13:POKE632,13:POKE633,13:PRINT"":A$=N$:GOSUB14:END
4000 A$="[211]TATS [197]DITOR":GOSUB9:IFZTHENGOSUB3500:GOTO3
4002 A$="[193]) [211]YSOP[194]) [216]FER[195]) [205]SG":GOSUB9
4004 A$="[196])[160][194]ULLETIN[197]) [196]RIVE [211]ETUP[198]) [205]ISC[199]) [204]INKS":GOSUB2
4006 A$="[204]) [204]OAD [211]TATS[211]) [211]AVE [211]TATS":GOSUB9
4010 A$="[211][197]":O=1:GOSUB7:IFZTHEN4000
4011 IFI$=C$THEN4030
4012 GOSUB6:IF(I$<"[193]"ORI$>"[199]")ANDI$<>"[204]"ANDI$<>"[211]"THEN4002
4013 IFI$="[211]"THENYJ=1:GOSUB3500:GOTO4002
4014 IFI$="[204]"ANDBJTHENA$="[196]ISK HAS ALREADY BEEN ALTERED!":GOSUB9:GOTO4000
4015 IFI$="[204]"THENA$="[204]OADING..":GOSUB9:GOSUB170:GOTO4002
4016 YJ=.:A=ASC(I$)-192:ONAGOTO4050,4100,4200,4410,4430,4470,4700
4030 IFYJ=.THENA$="[211]AVE '[206][197][215]' STATS? ":GOSUB9:GOSUB25:IFDORZTHENGOSUB3500
4031 GOTO3
4050 A$="[211]YSOP [211]TATS":GOSUB9:IFZTHEN4000
4051 A$="1) [208]ASS2) [205]AIL3) [208]OINTERS":GOSUB9
4052 A$="4) [196]ESIGNATE [211]YSOP5) [211]IGNATURES":GOSUB2
4053 A$="[211]YS":O=1:GOSUB7:IFZTHEN4000
4055 GOSUB6:A=VAL(I$):IFA<1ORA>5THEN4000
4056 ONAGOTO4060,4065,4075,4660,4560
4060 A$="[211]YSOP'S [208]ASS: "+PS$:GOSUB9:A$="[206]EW [208]ASSWORD: ":O=6:GOSUB1
4061 IFZORI$=C$THEN4050
4062 GOSUB6:PS$=I$:A$="[208]ASS: "+PS$:GOSUB9:GOTO4050
4065 A$="[205]AIL >":FORX=.TOMG:A$=A$+STR$(X)+":"+SY$(X)+" ":NEXT:GOSUB9
4066 A$="[194]ASE #":O=1:GOSUB7:IFZORI$=C$THEN4050
4068 GOSUB6:X=VAL(I$):IFX<.ORX>MGTHEN4066
4070 A$=STR$(X)+":"+SY$(X)+R$+STR$(X)+":":O=3:GOSUB9:GOSUB4
4071 IFZORI$=C$ORVAL(I$)=.THEN4050
4072 SY$(X)=I$:GOTO4050
4075 A$="[208]OINTER >":FORX=.TOMG:A$=A$+STR$(X)+":"+R4$(X)+" ":NEXT:GOSUB9
4076 A$="[194]ASE #":O=1:GOSUB7:IFZORI$=C$THEN4050
4077 GOSUB6:X=VAL(I$):IFX<.ORX>MGTHEN4076
4079 A$=STR$(X)+":"+R4$(X)+R$+STR$(X)+":":O=10:GOSUB9:GOSUB4
4080 IFZORI$=C$ORVAL(I$)=.THEN4050
4081 R4$(X)=I$:GOTO4050
4099 A$=G$:GOSUB9
4100 A$="[216]FER":GOSUB9:IFZTHEN4000
4101 A$="1) [212]ITLES2) [193]LLOCATIONS":GOSUB9
4102 A$="3) # OF FILES PER DIR4) [193]DD DIR5) [196]ELETE DIR":GOSUB2
4103 A$="6) [197]DIT DIR7) [193]LTER [213]P/[196]OWNLOADING [193]CCESS":GOSUB2
4104 A$="8) [208]RG [204]IST [196]RIVE[216]FER":O=1:GOSUB7:IFZTHEN4000
4105 GOSUB6:Y=VAL(I$):IFY<1ORY>8THEN4000
4106 IFY=3ORY=4ORY>6THENJM=.:GOTO4109
4107 A$="[196]IR #":O=2:GOSUB7:IFI$=C$ORZTHEN4100
4108 GOSUB6:JM=VAL(I$):IFJM<.ORJM>DRTHEN4100
4109 ONYGOTO4112,4117,4125,4128,4140,4150,4170,4160
4112 A$="[212]ITLE : "+DR$(3,JM)+"[206]EW  ":O=15:GOSUB7:IFZORI$=C$THEN4100
4114 DR$(3,JM)=I$:GOTO4099
4117 A$="[196]IR"+STR$(JM)+" IS ON DEV "+DR$(1,JM)+" DRV/PRT "+DR$(2,JM):GOSUB9
4118 A$="[206]EW DEV":O=2:GOSUB7:IFI$=C$ORZTHEN4100
4119 Y=VAL(I$):IFY<8THENGOSUB17:GOTO4117
4120 A$="[206]EW DRV OR PRT":O=30:GOSUB7:IFI$=C$ORZTHEN4100
4121 DR$(1,JM)=MID$(STR$(Y),2):DR$(2,JM)=I$:GOTO4099
4125 A$="[198]ILES PER DIR"+STR$(PG)+"[206]EW FILE LIMIT":O=2:GOSUB7:IFZORI$=C$THEN4100
4126 A=VAL(I$):IFA<1ORA>99THENGOSUB17:GOTO4125
4127 PG=A:GOTO4099
4128 IFDR=19ANDPD>8THENA$="[205]AX 20 DIRS":GOSUB9:GOTO4100
4129 IFDR=9ANDPD=8THENA$="[205]AX 10 DIRS":GOSUB9:GOTO4100
4130 A$="[193]DDING DIR"+STR$(DR+1)+"[212]ITLE":O=20:GOSUB7:IFZORI$=C$THEN4100
4131 JT$=I$
4132 A$="[196]EV":O=2:GOSUB7:IFZORI$=C$THEN4100
4133 JD=VAL(I$):IFJD<8THEN4132
4134 A$="[196]RV/[208]RT":O=30:GOSUB7:IFZORI$=C$THEN4100
4135 DR=DR+1:DR$(1,DR)=MID$(STR$(JD),2):DR$(2,DR)=I$:DR$(3,DR)=JT$
4136 DR$(4,DR)="0":GOSUB13:OPEN2,PD,2,"0:PRG LIST"+MID$(STR$(DR),2)+",S,W":PRINT#2," "
4137 CLOSE2:BJ=1:GOTO4148
4140 A$="[211]URE? ":GOSUB9:GOSUB25:IFZORD=.THEN4100
4142 GOSUB13:OPEN1,PD,15,"I0:":PRINT#1,"S0:PRG LIST"+MID$(STR$(JM),2):IFJM=DRTHEN4146
4143 FORX=JMTODR-1:DR$(1,X)=DR$(1,X+1):DR$(2,X)=DR$(2,X+1)
4144 DR$(3,X)=DR$(3,X+1):DR$(4,X)=DR$(4,X+1)
4145 PRINT#1,"R0:PRG LIST"+MID$(STR$(X),2)+"=0:PRG LIST"+MID$(STR$(X+1),2):NEXT:GOSUB13
4146 DR$(1,DR)="":DR$(2,DR)="":DR$(3,DR)="":DR$(4,DR)="":DR=DR-1:BJ=1
4147 IFDR=-1THENA$="[212]RANSFER SECTION CLOSED":GOSUB9
4148 A$="[210]EMEMBER TO CORRECT DOWNLOAD HOURS!":GOSUB9:GOTO4099
4150 A$="[197]NTER [210][197][212][213][210][206] TO LEAVE UNCHANGED":GOSUB9
4151 A$="[212]ITLE : "+DR$(3,JM)+"[212]ITLE":O=20:GOSUB7:IFZTHEN4000
4152 IFI$<>C$THENDR$(3,JM)=I$
4153 A$="[196]EV : "+DR$(1,JM)+"[196]EV":O=2:GOSUB7:IFZTHEN4000
4154 IFI$<>C$THENDR$(1,JM)=I$
4155 A$="[196]RV : "+DR$(2,JM)+"[196]RV":O=30:GOSUB7:IFZTHEN4000
4156 IFI$<>C$THENDR$(2,JM)=I$
4157 GOTO4099
4160 A$="[197]NTER DEVICE # FOR LISTS":GOSUB9
4161 A$="#":O=2:GOSUB7:IFZORI$=C$THEN4100
4162 PD=VAL(I$):A$="*[210][197][205][197][205][194][197][210]* TO COPY THE PRG LISTS":GOSUB9:GOTO4099
4164 OPEN1,8,15,"S0:TIMES":OPEN2,8,2,"0:TIMES,S,W
4165 [129]X[178].[164]DR:[139][197](IT$(X))[178].[167]IT$(X)[178]"0000
4166 IFU(X)=1THENIT$(X)="*"+IT$(X)
4167 IFVAL(JT$(X))=.THENJT$(X)="0000
4168 [139]B(X)[178]1[167]JT$(X)[178]"*"[170]JT$(X)
4169 [152]2,IT$(X)[170]R$[170]JT$(X):[130]:[141]13:[137]4100
4170 X[178][171]1:[141]13:[159]1,8,15:[159]2,8,2,"0:TIMES":[132]1,A,M1$,M1,M1:[139]A[167]4179
4172 X[178]X[170]1:[132]2,IT$(X),JT$(X)
4173 [139][200](IT$(X),1)[178]"*"[167]U(X)[178]1:IT$(X)[178][202](IT$(X),2)
4174 [139][200](JT$(X),1)[178]"*"[167]B(X)[178]1:JT$(X)[178][202](JT$(X),2)
4175 [139]ST[178].[167]4172
4179 [139]DR[178][171]1[167]A$[178]"(null)O (null)FER":[141]9:[137]4100
4180 [141]13:A$[178]"STR$OWNLOAD LEFT$OURS -CLOSE(null)P/STR$OWN (null)N/(null)FF":[141]9:[139]Z[167]4100
4181 [129]X[178].[164]DR:JM$[178][200](IT$(X),2)[170]":"[170][201](IT$(X),2)[170]" TO "
4182 JM$[178]JM$[170][200](JT$(X),2)[170]":"[170][201](JT$(X),2):[139][197](IT$(X))[178].[167]JM$[178]"24 HOURS
4183 A$=MID$(STR$(X),2)+": "+JM$+" - [213]P "+MID$("[207]N [207]FF",U(X)*3+1,3)
4184 A$=A$+", [196]OWN "+MID$("[207]N [207]FF",B(X)*3+1,3):GOSUB2:IFC9THENX=DR
4185 NEXT:A$="[196]IR #":O=2:GOSUB7:IFZTHEN4100
4186 IFI$=C$THEN4164
4187 JM=VAL(I$):IFJM>DRTHEN4180
4188 U(JM)=.:A$="[193]LLOW UPLOADING? ":GOSUB9:GOSUB25:IFD=.THENU(JM)=1
4189 B(JM)=.:A$="[193]LLOW DOWNLOADING? ":GOSUB9:GOSUB25:IFD=.THENB(JM)=1
4190 A$="[194]EGINS AT":O=4:GOSUB7:IFZORI$=C$THEN4180
4191 IT=VAL(I$):IFIT=.THENA$="24 HOURS":GOSUB9:A=.:GOTO4196
4192 IFIT>2459THENGOSUB17:GOTO4190
4193 IFIT>2359THENIT=IT-2400:IFIT=.THEN4190
4194 A$="[197]NDS AT":O=4:GOSUB7:IFZORI$=C$THEN4180
4195 A=VAL(I$):IFA=.ORA>2459THENGOSUB17:GOTO4194
4196 IFA>2359THENA=A-2400:IFA=.THEN4194
4197 IT$(JM)=LEFT$("0",5-LEN(STR$(IT)))+MID$(STR$(IT),2)
4198 JT$(JM)=LEFT$("0",5-LEN(STR$(A)))+MID$(STR$(A),2):GOTO4180
4199 A$=G$:GOSUB9
4200 A$="[205]ESSAGE":GOSUB9:IFZTHEN4000
4201 A$="1) [193]DD BASE2) [207]PEN/[195]LOSE [194]ASE3) [197]DIT BASE":GOSUB9
4202 A$="4) [195]ATEGORIES5) [206]EW USER MASK":GOSUB2
4205 A$="[205]SG":O=1:GOSUB7:IFZTHEN4000
4206 GOSUB6:Y=VAL(I$):IFY<1ORY>5THEN4000
4207 IFY=1ORY>3THEN4211
4209 A$="[194]ASE #":O=1:GOSUB7:IFZORI$=C$THEN4200
4210 GOSUB6:JM=VAL(I$):IF(JM<.ORJM>MG)ORVAL(MG$(3,JM))<.THENGOSUB17:GOTO4209
4211 ONYGOTO4215,4240,4250,4350,4390
4215 A$="[212]ITLE":O=30:GOSUB7:IFI$=C$ORZTHEN4200
4217 NM$=I$:A$="[196]EV":O=2:GOSUB7:IFI$=C$ORZTHEN4200
4218 GOSUB6:Y=VAL(I$):IFY<8THEN4217
4220 A$="[196]RV OR PRT":O=30:GOSUB7:IFI$=C$ORZTHEN4200
4221 JY$=I$
4223 A$="[205]AX # OF MSGS":O=4:GOSUB7:IFI$=C$ORZTHEN4200
4224 GOSUB6:JP=VAL(I$):IFJP<1THEN4223
4225 A$="[195]REATING [210][197][204] FILE..":GOSUB9:GOSUB13:BJ=1:OPEN1,8,15,"I0:
4226 JE[178]MG[170]1:[129]X[178].[164]MG:[139][197](MG$(3,X))[179].[167]JE[178]X:X[178]MG
4227 [130]:[139]JE[179][177]MG[170]1[167][152]1,"S0:(null)ESSAGES"[170][202]([196](JE),2):[152]1,"I0:
4228 OPEN3,8,3,"0:[205]ESSAGES"+MID$(STR$(JE),2)+",L,"+CHR$(111)
4229 H=INT((JP+1)/C):G=(JP+1)-H*C:GOSUB37:PRINT#3,"MES":GOSUB37
4230 FORX=1TOJP:H=INT(X/C):G=X-H*C:GOSUB37
4231 PRINT#3,"MES":GOSUB37:NEXT:GOSUB13:BI=VAL(MG$(2,JE)):IB$=MG$(1,JE)
4232 MG$(.,JE)=NM$:MG$(1,JE)=JY$:MG$(2,JE)=MID$(STR$(Y),2):MG$(3,JE)=MID$(STR$(JP),2)
4233 IFJE<>MG+1THENGOSUB13:OPEN1,BI,15,"S"+IB$+":E"+MID$(STR$(JE),2)+"-*":CLOSE1
4234 BI=.:IB$="":IFJE=MG+1THENMG=MG+1
4235 A$="[206]EW BASE IS #"+STR$(JE):GOSUB9:IFVAL(RF$(JE))=.THENRF$(JE)="0
4237 R4$(JE)[178]"0":AL$(JE)[178]"0":SY$(JE)[178]"0":[137]4199
4240 A[178][197](MG$(3,JM)):A$[178]"LENLOSED":[139]A[179].[167]A$[178]"(null)PENED
4241 GOSUB9:IFA<.THENMG$(3,JM)=MID$(STR$(ABS(A)),2):GOTO4199
4242 IFJM=.THENA$="[194]ASE 0 CAN'T BE CLOSED!":GOSUB9:GOTO4200
4243 A$="[206]OTE: *[195][204][207][211][197][196]* BASES WILL BE REPLACED":GOSUB9
4244 A$="WHEN A NEW BASE IS ADDED!":GOSUB2
4245 MG$(3,JM)="-"+MG$(3,JM):GOTO4199
4249 A$=G$:GOSUB9
4250 A$="[194]ASE [197]DIT":GOSUB9:IFZTHEN4000
4251 A$="1) [212]ITLE2) [196]EVICE3) [196]RIVE/[208]ARTITION
4252 [141]9:A$[178]"4) (null)ET (null)ORM/(null)UB/(null)RIV":[141]2
4253 A$[178]"PEEKVAL":O[178]1:[141]7:[139]Z[167]4000
4254 [141]6:[139]I$[179]"1"[176]I$[177]"4"[167]4200
4255 [145][197](I$)[137]4260,4265,4270,4405
4260 A$[178]"(null)ITLE : "[170]MG$(.,JM):[141]9
4261 A$[178]"(null)ITLE":O[178]30:[141]7:[139]Z[176]I$[178]C$[167]4250
4262 MG$(.,JM)[178]I$:[137]4249
4265 A$[178]"STR$EV : "[170]MG$(2,JM)[170]"STR$EV":O[178]2:[141]7:[139]Z[176]I$[178]C$[167]4250
4266 [141]6:[139][197](I$)[179]8[167][141]17:[137]4265
4268 MG$(2,JM)[178]I$:[137]4249
4270 A$[178]"STR$RV/(null)RT : "[170]MG$(1,JM)[170]"STR$RV/(null)RT":O[178]30:[141]7:[139]Z[176]I$[178]C$[167]4250
4271 MG$(1,JM)[178]I$:[137]4249
4349 A$[178]G$:[141]9
4350 A$[178]"LENATEGORY":[141]9:[139]Z[167]4000
4351 A$[178]"1) ATNDD2) STR$ELETE3) VALDIT":[141]9
4353 A$[178]"4) (null)ISTLENAT":O[178]1:[141]7:[139]Z[176]I$[178]C$[167]4200
4355 [141]6:Y[178][197](I$):[139]Y[179]1[176]Y[177]4[167]4200
4356 [139]I$[178]"1"[176]I$[178]"4"[167]4360
4357 A$[178]"LENATEGORY #":O[178]1:[141]7:[139]Z[176]I$[178]C$[167]4350
4359 [141]6:JM[178][197](I$):[139]JM[179].[176]JM[177]NC[167]I$[178]V$:[141]2:[137]4357
4360 [145]Y[137]4364,4370,4377,4380
4364 [139]NC[178]6[167]A$[178]"(null)NLY 7 CATEGORIES ALLOWED":[141]9:[137]4350
4365 A$[178]"(null)HIS WILL BE CAT."[170][196](NC[170]1):[141]9
4366 A$[178]"LENATEGORY TITLE":O[178]13:[141]7:[139]Z[176]I$[178]C$[167]4350
4367 NC[178]NC[170]1:C$(NC)[178]I$:[137]4349
4370 [139]NC[178].[167]A$[178]"(null)OU MUST HAVE AT LEAST ONE CAT.":[141]9:[137]4350
4371 [139]JM[178]NC[167]4374
4372 [129]X[178]JM[164]NC[171]1:C$(X)[178]C$(X[170]1):[130]
4374 C$(NC)[178]"":NC[178]NC[171]1:[137]4349
4377 A$[178]"LENATEGORY: "[170]C$(JM)[170]"(null)EW LENAT":O[178]15:[141]7:[139]Z[176]I$[178]C$[167]4350
4378 C$(JM)[178]I$:[137]4349
4380 A$[178]"LENATEGORIES:":[141]9:[129]X[178].[164]NC:A$[178][196](X)[170]" "[170]C$(X):[141]2:[130]
4381 [137]4350
4390 SU[178][197](SU$):[139]SU[179].[167]A$[178]"(null)YSTEM CLOSED":[141]9:[137]4200
4391 A$[178]"(null)ASK:  "[170][200]("0123456",NC[170]1):[141]9:A$[178][200](X$,7)
4392 [129]I[178]1[164]NC[170]1:A$[178]A$[170][202]("-RIGHT$",[171]1[172]((SU[175]2[174]I)[178]2[174]I)[170]1,1):[130]:[141]2
4393 A$[178]"(null)EW(null)":O[178]NC[170]1:[141]7:[139]Z[176]I$[178]C$[167]4200
4395 [141]6:OV[178].:[129]X[178]1[164][195](I$)
4396 [139][202](I$,X,1)[178]"RIGHT$"[167]OV[178]OV[170]2[174]X
4397 [130]:[139]NC[178]6[167]4399
4398 [129]X[178]NC[170]1[164]6:OV[178]OV[170]2[174](X[170]1):[130]
4399 SU$[178][202]([196](OV),2):[137]4199
4405 A$[178]"0) (null)ORMAL1) (null)UBLIC (null)NLY2) (null)RIVATE (null)NLY":[141]9
4406 A$[178]"(null)(null)":O[178]1:[141]7:A[178][197](I$):[139]I$[178]C$[176]Z[176]A[177]2[167]4250
4407 MG(JM)[178]A:[137]4249
4410 A$[178]"PEEKULLETIN":[141]9
4411 A$[178]"STR$EV"[170][196](BD)[170]" STR$RV/(null)RT "[170]BD$:[141]9
4413 A$[178]"STR$EV":O[178]2:[141]7:[139]I$[178]C$[176]Z[167]4418
4414 [141]6:[139][197](I$)[179]8[167][141]17:[137]4413
4415 BD[178][197](I$)
4418 A$[178]"STR$RV/(null)RT":O[178]30:[141]7:[139]I$[178]C$[176]Z[167]4000
4419 BD$[178]I$:A$[178]G$:[141]9:[137]4000
4429 A$[178]G$:[141]9
4430 A$[178]"STR$ISK STR$RIVE (null)ETUP":[141]9:[139]Z[167]4000
4431 A$[178]"1) ATNDD2) STR$ELETE3) VALDIT":[141]9
4433 A$[178]"4) (null)ISTSTR$RV":O[178]1:[141]7:[139]Z[167]4000
4435 [141]6:Y[178][197](I$):[139]Y[179]1[176]Y[177]4[167]4000
4436 JM[178].:BI[178].:[139]Y[178]4[167]4440
4437 A$[178]"STR$RIVE'S STR$EVICE #":O[178]2:[141]7:[139]I$[178]C$[176]Z[167]4430
4438 [141]6:JM[178][197](I$):[139]JM[179]8[176](JM[177]NB[170]7[175]Y[179][177]1)[167][141]17:[137]4437
4440 [145]Y[137]4445,4455,4446,4462
4445 BI[178]1:[139]JM[179][178]NB[170]7[167]4430
4446 A$[178]"(null)YPE OF DRIVE:":[141]9:[129]X[178].[164]5
4447 A$[178][196](X)[170]") "[170][202]("1541 1581 1571 LEN(null)STR$  (null)ETEC(null)THER",X[172]5[170]1,5):[141]2:[130]
4449 A$[178]"#":O[178]1:[141]7:[139]Z[176]I$[178]C$[167]4430
4450 Y[178][197](I$):[139]Y[179].[176]Y[177]5[167][141]17:[137]4449
4451 [139]BI[178].[167]TB$(JM)[178][202]([196](Y),2):[137]4429
4452 [139]JM[177]NB[170]8[167][129]X[178]NB[170]8[164]JM:TB$(X)[178]"5":[130]:NB[178]JM[171]8
4454 NB[178]NB[170]1:TB$(JM)[178][202]([196](Y),2):[137]4429
4455 [139]NB[170]7[178]8[167]A$[178]"(null)UST HAVE AT LEAST 1 DRIVE":[141]9:[137]4430
4456 [139]JM[178]NB[170]7[167]4458
4457 [129]X[178]JM[164]NB[170]6:TB$(X)[178]TB$(X[170]1):[130]
4458 TB$(NB[170]7)[178]"":NB[178]NB[171]1:[137]4429
4462 A$[178]"STR$RIVES:":[141]9:[129]X[178]8[164]NB[170]7:A$[178][196](X)[170]" - "
4463 A$[178]A$[170][202]("1541 1581 1571 LEN(null)STR$  (null)ETEC(null)THER",[197](TB$(X))[172]5[170]1,5):[141]2
4464 [130]:[137]4430
4469 A$[178]G$:[141]9
4470 A$[178]"(null)ISCELLANEOUS":[141]9:[139]Z[167]4000
4471 A$[178]"1) ATNLIAS/(null)EAL/PEEKOTH2) LENHANGE LINK DRIVES":[141]9
4472 A$[178]"3) LENHANGE MAX USER AMOUNT":[141]2
4473 A$[178]"4) LENLOSE/(null)PEN (null)YSTEM5) (null)EG USER TIME LIMIT":[141]2
4475 A$[178]"(null)ISC":O[178]1:[141]7:[139]Z[167]4000
4476 [141]6:Y[178][197](I$):[139]Y[179]1[176]Y[177]5[167]4000
4477 [145]Y[137]4480,4485,4495,4550,4650
4480 LF[178]LF[170]1:[139]LF[177]2[167]LF[178].
4481 JM$[178]"(null)EAL":[139]LF[167]JM$[178]"ATNLIAS":[139]LF[178]2[167]JM$[178]"ATNLIAS/(null)EAL
4482 A$="[206]OW "+JM$+" FORMAT":GOSUB9:GOTO4470
4485 A$="[204]INK DEV IS"+STR$(LD)+" DRV/PRT "+LD$:GOSUB9
4486 A$="[196]EV":O=2:GOSUB7:IFZORI$=C$THEN4489
4487 GOSUB6:IFVAL(I$)<8THENGOSUB17:GOTO4486
4488 LD=VAL(I$)
4489 A$="[196]RV/PRT":O=30:GOSUB7:IFZORI$=C$THEN4470
4490 LD$=I$:GOTO4469
4495 A$="[211]ET AT"+STR$(UM)+"[206]EW #":O=3:GOSUB7:IFZORI$=C$THEN4470
4496 GOSUB6:JM=VAL(I$):IFJM<.ORJM>BTHENGOSUB17:GOTO4495
4497 IFJM<USTHENA$="[195]AN'T MOVE THE MAX BELOW # OF USERS":GOSUB9:GOTO4495
4499 BJ=1:IFJM<UMTHEN4504
4500 GOSUB13:OPEN1,8,15,"I0:":OPEN3,8,3,FR$:H=INT(JM/C):G=JM-H*C:GOSUB37
4501 PRINT#3,"END":GOSUB37:GOSUB13:UM=JM:GOTO4469
4504 GOSUB13:OPEN1,8,15,"I0:":OPEN3,8,3,FR$
4505 FORX=1TOUS:H=INT(X/C):G=X-H*C:GOSUB33:U$(X)=A$:SYS49239:NEXT:CLOSE3
4507 PRINT#1,"S"+FR$:GOSUB13:OPEN1,8,15,"I0:":OPEN3,8,3,FR$+",L,"+CHR$(84)
4508 H=INT(JM/C):G=JM-H*C:GOSUB37:PRINT#3,"END":GOSUB37:CLOSE3
4510 OPEN3,8,3,FR$:FORX=1TOUS:H=INT(X/C):G=X-H*C:GOSUB37:PRINT#3,U$(X):GOSUB37
4511 NEXT:GOSUB13:FORX=1TOUS:U$(X)="":NEXT:SYS49239:UM=JM:GOTO4469
4550 A$="[211]YSTEM ":B$="[207]PEN":IFVAL(SU$)>.THENB$="[195]LOSED
4551 A$[178]A$[170]B$:[141]9:O[178][197](SU$)[172][171]1:SU$[178][202]([196](O),1[170](O[179].)[170]1):[137]4469
4560 [141]13:[159]1,8,15:[159]2,8,2,"0:AUTO":JM[178][171]1
4562 JM[178]JM[170]1:[132]2,AU$(JM),BU$(JM):[139]ST[178].[167]4562
4563 [139][195](AU$(.))[179]2[167]JM[178][171]1
4564 [141]13:A$[178]"(null)IGNATURES:":[141]9:[139]Z[167]4000
4566 [139]JM[177][171]1[167][129]X[178].[164]JM:A$[178][202]([196](X),2)[170]": "[170]AU$(X):[141]2:[130]
4568 A$[178]"ATN)DD, STR$)ELETE, VAL)DIT, (null))AVE":O[178]1:[141]7:[139]Z[176]I$[178]C$[167]4050
4570 [141]6:BU[178][171]1:JM$[178]I$:[139]I$[178]"ATN"[176]I$[178]"(null)"[167]4574
4572 A$[178]"#":O[178]1:[141]7:[141]6:BU[178][197](I$):[139]Z[176]I$[178]" "[176]BU[179].[176]BU[177]JM[167]4564
4573 I$[178]JM$
4574 [145][171](I$[178]"ATN"[176]I$[178]"VAL")[137]4580:[145][171](I$[178]"STR$")[137]4600:[145][171](I$[178]"(null)")[137]4620:[137]4564
4580 A$[178]"(null)SER'S (null)AME":O[178]24:[141]7:[139]Z[176](I$[178]C$[175]BU[178][171]1)[167]4564
4581 [139]I$[178]C$[167]I$[178]AU$(BU)
4582 [139]BU[177][171]1[167]A$[178]"(null)IGNATURE:>"[170]BU$(BU):[141]9
4584 [141]6:JM$[178]I$:A$[178]"(null)IGNATURE:>":O[178]38:[141]7:[139]Z[176](I$[178]C$[175]BU[178][171]1)[167]4564
4586 [139]I$[178]C$[167]I$[178]BU$(BU)
4588 X[178]BU:[139]BU[178][171]1[167]JM[178]JM[170]1:X[178]JM
4590 AU$(X)[178]JM$:BU$(X)[178]I$:[137]4564
4600 [139]BU[178]JM[167]AU$(JM)[178]"":BU$(JM)[178]"":JM[178]JM[171]1:[137]4606
4602 JM[178]JM[171]1:[129]X[178]BU[164]JM:AU$(X)[178]AU$(X[170]1):BU$(X)[178]BU$(X[170]1):[130]
4606 A$[178]"STR$ELETED":[141]9:[137]4564
4620 A$[178]"(null)AVING..":[141]9:[141]13:[159]1,8,15,"S0:AUTO":[159]2,8,2,"0:AUTO,S,W
4622 FORX=.TOJM:PRINT#2,AU$(X)+R$+Q$+BU$(X):NEXT:CLOSE2:GOTO4564
4650 A$="[210]EGULAR USER TIME LIMIT:"+STR$(EZ):GOSUB9
4651 A$="[206]EW LIMIT (15-60)":O=2:GOSUB7:A=VAL(I$):IFZORI$=C$OR(A<15ORA>60)THEN4470
4652 EZ=A:GOTO4469
4660 A$="[211]YSOP : "+CG$+"[211]YSOP":O=25:GOSUB7:GOSUB6:IFZTHEN4050
4661 IFI$=" "THENI$="0
4662 CG$[178]I$:A$[178]G$:[141]9:[137]4050
4699 A$[178]"(null)KAY":[141]9
4700 A$[178]"(null)INK (null)ETUP1)(null)IST2)ATNDD3)STR$ELETE":[141]9
4702 A$[178]"(null)INK":O[178]1:[141]7
4703 [141]6:A[178][197](I$):[139]A[179]1[176]A[177]3[176]Z[178]1[167]4000
4705 [145]A[137]4710,4730,4720
4710 A$[178]"(null)INKS:":[141]9:[129]X[178].[164]P1:A$[178][196](X)[170]" = "[170]P1$(X):[141]2:[130]:[137]4700
4720 A$[178]"STR$ELETE WHICH #":O[178]2:[141]7:[141]6:A[178][197](I$)
4721 [139]A[179].[176]A[177]P1[176]Z[178]1[176]I$[178]" "[176]P1[178].[167]4000
4722 [139]P1[178]A[167]P1[178]P1[171]1:[137]4699
4723 [129]X[178]A[164]P1:P1$(X)[178]P1$(X[170]1):[130]:P1[178]P1[171]1:[137]4699
4730 A$[178]"(null)INK (null)AME":O[178]15:[141]7:[141]6:[139]Z[178]1[176]I$[178]" "[167]4000
4731 P1[178]P1[170]1:P1$(P1)[178]I$:[137]4699
5900 BR[178][197](I$):[151]659,6:RC[178]1022730[173]BR:[141]5950
5905 [139]BR[178]300[176]BR[177]1199[167][158]49242:[137]5910
5906 [158]49245
5910 [151]176,LO:[151]177,HI:[151]665,LO
5920 [151]666,HI:RC[178]1022730[173]BR[173]2[171]100:[141]5950:[151]661,LO:[151]662,HI
5930 [139][195](I$)[178]3[167]I$[178]"0"[170]I$
5940 [129]X[178]1[164]4:[151]X[170]964,[198]([202](I$,X,1)):[130]:[142]
5950 HI[178][181](RC[173]C):LO[178][181](RC[171]HI[172]C):[142]
6000 A$[178]"LOGOFF? ":B$[178]A$:[141]14
6010 [161]A$:[139]A$[178]""[167]6010
6020 [139]A$[178]"N"[167]A$[178]B$[170]"NO":[141]14:DE[178].:[142]
6030 [139]A$[178]"Y"[167]A$[178]B$[170]"YES":[141]14:DE[178]1:[142]
6040 [137]6010
7001 F$[178]I$:LP$[178]":L-
7003 GOSUB13:OPEN1,LD,15:OPEN2,LD,2,LD$+LP$+F$:CLOSE2:INPUT#1,A,M1$,I,I:CLOSE1
7004 IFA=.THENGOSUB34:GOTO3677
7005 IFLP$=":L-"THENLP$=":S-":GOTO7003
7006 A$=V$:GOTO5
8010 IF(PEEK(MP)AND16)<>CPANDPEEK(706)=.THENZ=1
8015 RETURN
8020 FORX=56587TO56584STEP-1:POKEX,.:NEXT:X=PEEK(56584):RETURN
8100 E=TI:K=E:I$="[255]":GOSUB8020:RETURN
8490 GOSUB13:IFTB$(X)<>"0"THEN8500
8495 CLOSE10:OPEN10,X,15,"I0:":PRINT#10,"M-R"CHR$(250)CHR$(2)CHR$(3)
8497 GET#10,A$,B$,B$:GOSUB8506:GOTO8501
8500 F$=DD$+"AAA":GOSUB8502
8501 FF$=STR$(F):F=LEN(FF$)-1:A$=RIGHT$(FF$,F)+" [194]LOCKS [198]REE":GOTO5
8502 CLOSE10:FF$="$"+F$:OPEN10,U,.,FF$
8503 GET#10,A$,A$,A$,A$,A$,A$
8504 GET#10,A$:IFA$<>""THEN8504
8505 GET#10,A$,A$,A$,B$
8506 F=ASC(A$+Y$)+ASC(B$+Y$)*C:CLOSE10:RETURN
9000 A$="[196]EVICE > ":O=2:GOSUB1:X=VAL(I$)
9005 IFX<8ORX>VAL(NB$)+7ORI$=C$THEN3
9010 CLOSE7:OPEN7,X,15:CLOSE7:IFSTTHEN32
9020 A$="      [196][207][211] [195][205][196] > ":O=80:GOSUB1:IFZORI$=C$THENOPEN7,X,15:GOTO9040
9023 IFLEFT$(I$,1)="N"ANDPEEK(706)<BTHEN32
9024 IFLEFT$(I$,1)="$"ANDLEN(I$)=3ANDTB$(X)="1"THENI$=MID$(I$,3,1)+":$":GOTO23000
9025 IFLEFT$(I$,1)="$"ORMID$(I$,3,1)="$"THEN23000
9026 IFTB$(X)<>"1"THEN9030
9027 IFLEN(I$)=2THENI$=I$+":
9028 [139]I$[178]"/"[167][159]7,X,7,"0:$":[160]7:I$[178]""
9029 [139][200](I$,1)[178]"/"[167][159]7,X,7,[202](I$,4,1)[170]":$":[160]7:I$[178]""
9030 [159]7,X,15,I$
9040 [132]7,A$,B$,B1$,B2$
9045 A$[178]A$[170]" "[170]B$[170]" "[170]B1$[170]" "[170]B2$:[160]7:[137]39
10080 VJ[178].:[151]687,WD[171]4:B$[178]""
10090 A$[178]"ATN,LEN,STR$,VAL,RIGHT$,(null),(null),(null),?VALDITOR (null)5.1
10100 O=S:GOSUB7:IFZTHENRETURN
10110 IFI$=C$THEN11
10120 A$=LEFT$(I$,1):IFA$="R"ORA$="[210]"THEN10720
10130 B$=I$:GOSUB6:A$=LEFT$(I$,1)
10140 IFA$="?"THENPOKE687,WD:F$="HELPE":GOSUB15:POKE687,WD-4:GOTO11
10145 IFVAL(I$)THENI$="[197]"+I$:A$="[197]
10150 [139]A$[178]"(null)"[176]A$[178]"VAL"[176]A$[178]"STR$"[176]A$[178]"RIGHT$"[167]11140
10160 [139]I$[178]"ATN"[167]Z[178].:VJ[178]1:[142]
10180 [139]I$[178]"(null)"[167]Z[178].:VJ[178]2:[142]
10185 [139]I$[178]"LEN"[175]BF[178]1[167]A$[178]"PEEKUFFER ASCULL":[141]9:[137]11
10190 [139]I$[178]"LEN"[167]C7[178]1:[142]
10200 [137]11
10210 [141]12:Y[178]1:[139]L[178].[167]L[178]1
10220 [141]20:[139][195](A$)[178]B[176]Y[178][171]1[167]38
10230 [139]Y[179]L[167]Y[178]Y[170]1:[137]10220
10240 SP[178]3:[139][195]([196](Y))[177]4[167]SP[178]4
10241 B$[178]A$:AA$[178][202]([196](Y),2):AA$[178][200]("    ",SP[171][195](AA$))[170]AA$
10242 A$[178]AA$[170]":"[170]B$:[141]9
10243 A$[178]AA$[170]">":O[178]S:[141]1:[139]Z[167][142]
10245 A$[178]B$:B$[178]I$:[139]B$[178]C$[167]11
10260 A9[178][195](A$):B9[178][195](B$):[151]689,[182](A9[171]B9):[139]B9[177]A9[167][158]49206,B$:[137]11
10270 [139]A9[177]B9[167][158]49209,B$:[137]11
10280 [158]49212,B$:[137]11
10470 [139][195](A$)[178]B[167]A$[178]""
10480 [151]689,[195](A$)[170]([171]1[172]([201](A$,1)[179][177]CJ$)):[158]49209,B$:A$[178]"STR$ELETED":[137]9
10530 TF[178].:[161]H4$:[161]#5,A$:[139]A$[178]""[176]H4$[178]""[176]H4$[178][199](131)[167]TF[178]1
10540 [142]
10550 A$[178]"STR$EVICE (8) > ":O[178]2:[141]1:X[178][197](I$):[139]X[178].[167]X[178]8
10551 [139]X[179]8[176]X[177][197](NB$)[170]7[167]3
10552 [160]7:[159]7,X,7:[160]7:[139]ST[167]32
10553 A$[178]"STR$RIVE/(null)RT (0) > ":O[178]30:[141]1:[139]I$[178]C$[167]I$[178]"0
10559 DN$=I$+":":A$="[198]ILENAME > ":O=16:GOSUB1:FF$=I$:IFI$=C$ORZTHEN3
10560 DV=X:IFEM=.THEN10570
10561 GOSUB12:GOSUB13:OPEN1,X,15:OPEN2,X,2,DN$+FF$
10562 INPUT#1,A1$,A2$,A$,A$:IFA1$<>"00"THENA$="[197]RROR: "+A1$+", "+A2$:GOSUB9:GOTO10559
10563 A$="[204]OADING...":GOSUB9:GOSUB12
10564 SYS49257:IFST=64ORPEEK(686)=BTHEN10568
10565 POKE(PEEK(P)+PEEK(S)*C),160
10566 POKEP,(PEEK(P)+1)ANDB:IFPEEK(P)=.THENPOKES,PEEK(S)+1
10567 GOTO10564
10568 GOSUB13:IFPEEK(686)=BTHENA$="[194]UFFER [198]ULL":BF=1:GOSUB9
10569 GOTO10640
10570 POKE57344,B:C7=.:GOSUB12
10575 A$="[197]NTER [212]EXT:":GOSUB9
10580 WT=108E3:GOSUB40:POKE750,WD:POKE687,WD-8:SYS49188:GOSUB8
10585 IFPEEK(703)=BTHENA=PEEK(P)+PEEK(S)*C:POKEA,32:POKEA+1,B
10586 POKEP,(PEEK(P)+1)ANDB:IFPEEK(P)=.THENPOKES,PEEK(S)+1
10590 IFPEEK(P)+PEEK(S)*C=57345THEN10650
10600 IFC7THENA$="[195]ONTINUE...":C7=.:GOSUB9:GOTO10580
10610 IFVJ=1THEN10650
10620 IFZTHEN10650
10630 IFVJ=2THEN10660
10640 GOSUB11:GOTO10590
10650 IFZ=.THENA$="[193]BORT? ":GOSUB9:GOSUB25:VJ=.:IFD=.ANDZ=.THEN10640
10655 GOTO3
10660 A$="[211]AVING...":GOSUB9:VJ=.
10661 IFBF=.OREM=.THEN10670
10663 A$="[215]ARNING: [194]UFFER OVERFLOWED DURING":GOSUB9
10664 A$="LOADING.[208]ROCEED? ":GOSUB2
10666 GOSUB25:IFD=.THEN10640
10670 IFEM=.THENGOSUB13:OPEN1,DV,15:OPEN2,DV,2,DN$+FF$:CLOSE2:INPUT#1,A,M1$,I,I:IFA=.THENPB=1
10675 IFEMORPB=1THENGOSUB13:OPEN1,DV,15,"S"+DN$+FF$:PB=.
10680 GOSUB13:CLOSE9:OPEN9,DV,9,DN$+FF$+",S,W
10683 [139](FF$[178]"INTRO"[176]([200](FF$,3)[178]"B-PEEK"[175][195](FF$)[178]4))[175]EM[178].[167]10687
10685 [158]49191:[160]9:[137]3
10687 A[178][197](RF$([197]([201](FF$,1)))):[139]A[178].[167]A[178]1
10688 [152]9,[196](A):[137]10685
10720 SP$[178][202](I$,2,1):S$[178]"":RP$[178]""
10730 [129]X[178]3[164][195](I$):[139][202](I$,X,1)[178]SP$[167]10750
10740 S$[178]S$[170][202](I$,X,1):[130]:[137]10950
10750 [139]S$[178]""[167]10950
10760 I$[178][202](I$,3)
10770 [129]Y[178]X[171]1[164][195](I$):[139][202](I$,Y,1)[178]SP$[167]10790
10780 RP$[178]RP$[170][202](I$,Y,1):[130]:[137]10950
10790 NL$[178][202](I$,Y[170]1,4):[139][197](NL$)[178].[167]10950
10800 [141]12:WW[178].:Y[178]1:L[178][197](NL$):[139]L[179]1[167]L[178]1
10810 [141]20:[139]Y[178][171]1[176][195](A$)[178]B[167]38
10820 B$[178]A$:S9[178]1:[139]Y[179]L[167]Y[178]Y[170]1:[137]10810
10830 [129]X[178]S9[164][195](B$):[139][202](B$,X,[195](S$))[179][177]S$[167][130]:[137]10900
10840 WW[178]WW[170]1:A[178]X[171]1[170][195](RP$)[170][195](B$)[170]1[171][195](S$)[171]X:[139]A[177]245[167]10890
10850 B2$[178][200](B$,X[171]1)[170]RP$[170][201](B$,[195](B$)[170]1[171][195](S$)[171]X):B$[178]B2$:S9[178]X[170][195](RP$)
10860 X[178]X[170][195](RP$)[171][195](S$):[139]X[179].[167]X[178].
10870 [139]S9[179][178][195](B$)[167]10830
10880 [137]10900
10890 A$[178]"(null)OO (null)ARGE":[137]9
10900 A9[178][195](A$):B9[178][195](B$):A$[178]"(null)UBS:"[170][196](WW)[170]R$:[141]9
10910 [151]689,[182](A9[171]B9):[139]B9[177]A9[167][158]49206,B$:[137]10940
10920 [139]A9[177]B9[167][158]49209,B$:[137]10940
10930 [158]49212,B$
10940 SP[178]3:[139][195]([196](L))[177]4[167]SP[178]4
10945 A$[178][202]([196](L),2):A$[178][200]("    ",SP[171][195](A$))[170]A$[170]">"[170]B$:[141]2:[137]11
10950 A$[178]V$:[141]9:[137]11
10960 [141]8:[141]12:Y[178]1:[139]L[178].[167]L[178]1
10970 [141]20:[139][195](A$)[178]B[175]L[178]Y[176]Y[178][171]1[167]38
10980 [139][195](A$)[178]B[176]A$[178]""[167]A$[178]"":[137]10990
10983 SP[178]3:[139][195]([196](Y))[177]4[167]SP[178]4
10985 [139]Y[177][178]L[167]B$[178][202]([196](Y),2):A$[178]B$[170][200]("    ",SP[171][195](B$))[170]":"[170]A$:[141]2
10990 [139]Z[177].[176][194](693)[177].[176]C9[167]11
11000 Y[178]Y[170]1:[137]10970
11020 [141]12:Y[178]1:[139]L[178].[167]L[178]1
11030 [141]20:[139][195](A$)[178]B[176]Y[178][171]1[167]38
11040 [139]Y[178]L[167]B$[178]"":[137]10470
11050 Y[178]Y[170]1:[137]11030
11080 [141]12:Y[178]1:[139]L[178].[167]L[178]1
11090 [141]20:[139]Y[178][171]1[176][195](A$)[178]B[167]38
11100 [139]Y[178]L[167]B$[178]A$[170]" ":A$[178]"RIGHT$NSERT (null)EXT>":O[178]S:[141]1:A$[178]B$:B$[178]I$:[137]11120
11110 Y[178]Y[170]1:[137]11090
11120 [139]B$[178]C$[167][142]
11130 [151]689,[195](B$):[158]49206,B$:A$[178]"(null)EXT ATNDDED":[137]9
11140 B$[178][202](I$,2):[139][195](B$)[177]5[176][197](B$)[179].[167][141]17:[137]11
11150 [139]B$[178]C$[167]11
11160 [139]B$[178]""[175]A$[179][177]"(null)"[167]11195
11170 L[178][197](B$):[139]A$[178]"(null)"[167]10960
11180 [139]A$[178]"VAL"[167]10210
11185 [139]A$[178]"RIGHT$"[167]11080
11190 [139]A$[178]"STR$"[167]11020
11195 [139]A$[178]"RIGHT$"[167]A$[178]"RIGHT$NSERT PEEKVALASC(null)(null)VAL # > ":O[178]4:[141]1:I$[178]"RIGHT$"[170]I$:A$[178]"RIGHT$":[137]11140
11210 [139]A$[178]"STR$"[167]A$[178]"STR$ELETE # > ":O[178]4:[141]1:I$[178]"STR$"[170]I$:A$[178]"STR$":[137]11140
11220 A$[178]"VALDIT # > ":O[178]4:[141]1:I$[178]"VAL"[170]I$:A$[178]"VAL":[137]11140
12000 A$[178]"STR$EVICE (8) > ":O[178]2:[141]1:X[178][197](I$):[139]I$[178]C$[167]X[178]8
12010 [139]X[179]8[176]X[177][197](NB$)[170]7[167]3
12020 [160]7:[159]7,X,15:[160]7:[139]ST[167]32
12030 [160]7:[159]7,X,15
12040 A$[178]"ASCILENAME (STR$:ASCRIGHT$(null)VAL)>":O[178]19:[141]1:[139]Z[176]I$[178]C$[167]3
12050 DU$[178]I$
12080 VW[178][194](687)
12090 [160]1:[159]1,X,2,DU$:[132]7,A$:[139][197](A$)[167][151]687,VW:[137]32
12100 DD$[178]"":U[178]X:F$[178]DU$:[141]13:[141]1670:[151]687,VW:VQ[178].:[137]3
23000 [141]13:[141]8:[159]7,X,15:[159]2,X,.,I$
23010 [132]7,A$,B$,B1$,B2$:[139][197](A$)[167]9045
23070 [161]#2,A$,A$,A$,A$
23080 [151]XB,2:[158]CI
23085 A$[178]""
23090 [158]IB:L[178][194](AB):[158]IB:H[178][194](AB):A$[178][196](L[170]H[172]C):A$[178][202](A$,2)
23100 A$[178]A$[170]" "
23120 [158]IB:[139][194](AB)[178].[167]23140
23130 A$[178]A$[170][199]([194](AB)):[137]23120
23140 [141]2:[139]Z[167]23160
23145 [139]C9[167][158]CC:[141]13:[160]7:U[178]X:DD$[178]"":[137]8490
23150 [158]49239:[151]XB,2:[158]CI:[158]IB:[158]IB:[139][194](AB)[177].[167]23085
23160 [158]CC:[141]13:[160]7:[137]3